/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / STRIP.BIN / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 20 47 4f 54 4f 32 30 | 31 30 0a 31 30 20 5a 24 |5 GOTO20|10.10 Z$|
|00000010| 3d 43 48 52 24 28 2e 29 | 3a 50 52 49 4e 54 22 93 |=CHR$(.)|:PRINT".|
|00000020| 22 0a 31 31 20 50 52 49 | 4e 54 22 45 4e 54 45 52 |".11 PRI|NT"ENTER|
|00000030| 20 44 49 53 4b 20 44 52 | 49 56 45 20 44 45 56 49 | DISK DR|IVE DEVI|
|00000040| 43 45 20 4e 55 4d 42 45 | 52 2e 22 0a 31 32 20 50 |CE NUMBE|R.".12 P|
|00000050| 52 49 4e 54 22 11 28 45 | 4e 54 45 52 20 30 20 54 |RINT".(E|NTER 0 T|
|00000060| 4f 20 45 58 49 54 2e 29 | 22 0a 31 33 20 50 52 49 |O EXIT.)|".13 PRI|
|00000070| 4e 54 3a 50 52 49 4e 54 | 22 20 20 38 91 22 3a 49 |NT:PRINT|"  8.":I|
|00000080| 4e 50 55 54 44 3a 49 46 | 44 3d 2e 54 48 45 4e 45 |NPUTD:IF|D=.THENE|
|00000090| 4e 44 0a 31 34 20 49 46 | 44 3c 34 4f 52 44 3e 33 |ND.14 IF|D<4ORD>3|
|000000a0| 30 54 48 45 4e 50 52 49 | 4e 54 22 93 12 49 4c 4c |0THENPRI|NT"..ILL|
|000000b0| 45 47 41 4c 20 44 45 56 | 49 43 45 20 4e 55 4d 42 |EGAL DEV|ICE NUMB|
|000000c0| 45 52 22 3a 47 4f 54 4f | 31 31 0a 31 35 20 50 4f |ER":GOTO|11.15 PO|
|000000d0| 4b 45 32 2c 33 35 3a 50 | 4f 4b 45 31 38 34 2c 38 |KE2,35:P|OKE184,8|
|000000e0| 3a 50 4f 4b 45 31 38 35 | 2c 38 3a 50 4f 4b 45 31 |:POKE185|,8:POKE1|
|000000f0| 38 36 2c 44 0a 31 36 20 | 50 4f 4b 45 31 38 33 2c |86,D.16 |POKE183,|
|00000100| 31 3a 50 4f 4b 45 31 38 | 37 2c 32 3a 50 4f 4b 45 |1:POKE18|7,2:POKE|
|00000110| 31 38 38 2c 2e 3a 53 59 | 53 36 35 34 37 32 0a 31 |188,.:SY|S65472.1|
|00000120| 37 20 49 46 53 54 54 48 | 45 4e 43 4c 4f 53 45 38 |7 IFSTTH|ENCLOSE8|
|00000130| 3a 50 52 49 4e 54 22 93 | 12 44 45 56 49 43 45 22 |:PRINT".|.DEVICE"|
|00000140| 3b 44 3b 22 9d 20 4e 4f | 54 20 50 52 45 53 45 4e |;D;". NO|T PRESEN|
|00000150| 54 22 3a 47 4f 54 4f 31 | 31 0a 31 38 20 43 4c 4f |T":GOTO1|1.18 CLO|
|00000160| 53 45 38 0a 32 30 20 4f | 50 45 4e 38 2c 44 2c 30 |SE8.20 O|PEN8,D,0|
|00000170| 2c 22 24 22 0a 32 32 20 | 50 52 49 4e 54 22 93 11 |,"$".22 |PRINT"..|
|00000180| 4c 4f 41 44 49 4e 47 20 | 44 49 52 45 43 54 4f 52 |LOADING |DIRECTOR|
|00000190| 59 2e 2e 2e 13 22 0a 32 | 33 20 53 59 53 34 39 31 |Y....".2|3 SYS491|
|000001a0| 35 32 3a 49 46 50 45 45 | 4b 28 32 29 54 48 45 4e |52:IFPEE|K(2)THEN|
|000001b0| 32 35 0a 32 34 20 50 52 | 49 4e 54 22 93 12 4e 4f |25.24 PR|INT"..NO|
|000001c0| 20 46 49 4c 45 53 20 4f | 4e 20 44 49 53 4b 22 3a | FILES O|N DISK":|
|000001d0| 43 4c 4f 53 45 38 3a 47 | 4f 54 4f 31 31 0a 32 35 |CLOSE8:G|OTO11.25|
|000001e0| 20 4f 50 45 4e 31 35 2c | 44 2c 31 35 3a 47 4f 53 | OPEN15,|D,15:GOS|
|000001f0| 55 42 36 30 30 3a 49 46 | 46 54 48 45 4e 43 4c 4f |UB600:IF|FTHENCLO|
|00000200| 53 45 31 35 3a 47 4f 54 | 4f 31 31 0a 32 36 20 50 |SE15:GOT|O11.26 P|
|00000210| 52 49 4e 54 22 93 11 45 | 4e 54 45 52 20 50 45 54 |RINT"..E|NTER PET|
|00000220| 41 53 43 49 49 20 56 41 | 4c 55 45 20 4f 46 20 43 |ASCII VA|LUE OF C|
|00000230| 48 41 52 41 43 54 45 52 | 53 20 54 4f 22 0a 32 37 |HARACTER|S TO".27|
|00000240| 20 50 52 49 4e 54 22 11 | 42 45 20 53 54 52 49 50 | PRINT".|BE STRIP|
|00000250| 50 45 44 20 46 52 4f 4d | 20 45 4e 44 20 4f 46 20 |PED FROM| END OF |
|00000260| 46 49 4c 45 2e 22 0a 32 | 38 20 50 52 49 4e 54 22 |FILE.".2|8 PRINT"|
|00000270| 11 28 50 52 45 43 45 44 | 45 20 56 41 4c 55 45 20 |.(PRECED|E VALUE |
|00000280| 57 49 54 48 20 24 20 46 | 4f 52 20 48 45 58 20 45 |WITH $ F|OR HEX E|
|00000290| 4e 54 52 59 2e 29 22 0a | 32 39 20 50 52 49 4e 54 |NTRY.)".|29 PRINT|
|000002a0| 22 11 45 4e 54 45 52 20 | 53 4f 20 54 4f 20 53 54 |".ENTER |SO TO ST|
|000002b0| 41 52 54 20 4f 56 45 52 | 2e 11 22 0a 33 30 20 50 |ART OVER|..".30 P|
|000002c0| 52 49 4e 54 22 20 20 32 | 36 91 22 3a 49 4e 50 55 |RINT"  2|6.":INPU|
|000002d0| 54 41 24 3a 49 46 41 24 | 3d 22 53 4f 22 54 48 45 |TA$:IFA$|="SO"THE|
|000002e0| 4e 43 4c 4f 53 45 38 3a | 43 4c 4f 53 45 31 35 3a |NCLOSE8:|CLOSE15:|
|000002f0| 47 4f 54 4f 31 30 0a 33 | 31 20 47 4f 53 55 42 34 |GOTO10.3|1 GOSUB4|
|00000300| 30 30 3a 49 46 46 54 48 | 45 4e 32 39 0a 33 32 20 |00:IFFTH|EN29.32 |
|00000310| 50 52 49 4e 54 22 93 11 | 4f 4e 45 20 4d 4f 4d 45 |PRINT"..|ONE MOME|
|00000320| 4e 54 20 50 4c 45 41 53 | 45 2e 2e 2e 22 0a 33 35 |NT PLEAS|E...".35|
|00000330| 20 50 4f 4b 45 32 2c 41 | 0a 34 30 20 47 4f 53 55 | POKE2,A|.40 GOSU|
|00000340| 42 35 30 30 3a 43 4c 4f | 53 45 38 3a 4f 50 45 4e |B500:CLO|SE8:OPEN|
|00000350| 38 2c 44 2c 38 2c 22 23 | 22 3a 50 52 49 4e 54 23 |8,D,8,"#|":PRINT#|
|00000360| 31 35 2c 22 55 31 22 3b | 38 3b 30 3b 31 38 3b 53 |15,"U1";|8;0;18;S|
|00000370| 0a 34 35 20 50 52 49 4e | 54 23 31 35 2c 22 42 2d |.45 PRIN|T#15,"B-|
|00000380| 50 22 3b 38 3b 50 2b 31 | 0a 34 37 20 47 45 54 23 |P";8;P+1|.47 GET#|
|00000390| 38 2c 41 24 3a 50 4f 4b | 45 31 35 35 2c 41 53 43 |8,A$:POK|E155,ASC|
|000003a0| 28 41 24 2b 5a 24 29 0a | 35 30 20 47 45 54 23 38 |(A$+Z$).|50 GET#8|
|000003b0| 2c 41 24 3a 50 4f 4b 45 | 31 35 36 2c 41 53 43 28 |,A$:POKE|156,ASC(|
|000003c0| 41 24 2b 5a 24 29 0a 35 | 31 20 50 52 49 4e 54 23 |A$+Z$).5|1 PRINT#|
|000003d0| 31 35 2c 22 42 2d 50 22 | 3b 38 3b 50 2b 32 38 0a |15,"B-P"|;8;P+28.|
|000003e0| 35 32 20 47 45 54 23 38 | 2c 41 24 3a 4c 3d 41 53 |52 GET#8|,A$:L=AS|
|000003f0| 43 28 41 24 2b 5a 24 29 | 0a 35 35 20 47 45 54 23 |C(A$+Z$)|.55 GET#|
|00000400| 38 2c 41 24 3a 48 3d 41 | 53 43 28 41 24 2b 5a 24 |8,A$:H=A|SC(A$+Z$|
|00000410| 29 0a 35 37 20 50 52 49 | 4e 54 22 11 53 54 52 49 |).57 PRI|NT".STRI|
|00000420| 50 50 49 4e 47 20 43 48 | 41 52 41 43 54 45 52 53 |PPING CH|ARACTERS|
|00000430| 20 5b 43 48 52 24 28 22 | 3b 4d 49 44 24 28 53 54 | [CHR$("|;MID$(ST|
|00000440| 52 24 28 41 29 2c 32 29 | 3b 22 29 5d 2e 2e 2e 22 |R$(A),2)|;")]..."|
|00000450| 0a 36 30 20 50 4f 4b 45 | 31 34 33 2c 32 3a 53 59 |.60 POKE|143,2:SY|
|00000460| 53 34 39 35 32 34 0a 36 | 32 20 49 46 4c 3d 50 45 |S49524.6|2 IFL=PE|
|00000470| 45 4b 28 32 35 31 29 41 | 4e 44 48 3d 50 45 45 4b |EK(251)A|NDH=PEEK|
|00000480| 28 32 35 32 29 54 48 45 | 4e 39 31 0a 36 35 20 50 |(252)THE|N91.65 P|
|00000490| 52 49 4e 54 23 31 35 2c | 22 55 31 22 3b 38 3b 30 |RINT#15,|"U1";8;0|
|000004a0| 3b 31 38 3b 53 0a 37 30 | 20 50 52 49 4e 54 23 31 |;18;S.70| PRINT#1|
|000004b0| 35 2c 22 42 2d 50 22 3b | 38 3b 50 2b 32 38 0a 37 |5,"B-P";|8;P+28.7|
|000004c0| 35 20 50 52 49 4e 54 23 | 38 2c 43 48 52 24 28 50 |5 PRINT#|8,CHR$(P|
|000004d0| 45 45 4b 28 32 35 31 29 | 29 3b 0a 38 30 20 50 52 |EEK(251)|);.80 PR|
|000004e0| 49 4e 54 23 38 2c 43 48 | 52 24 28 50 45 45 4b 28 |INT#8,CH|R$(PEEK(|
|000004f0| 32 35 32 29 29 3b 0a 38 | 35 20 50 52 49 4e 54 23 |252));.8|5 PRINT#|
|00000500| 31 35 2c 22 55 32 22 3b | 38 3b 30 3b 31 38 3b 53 |15,"U2";|8;0;18;S|
|00000510| 0a 39 30 20 50 52 49 4e | 54 22 11 56 41 4c 49 44 |.90 PRIN|T".VALID|
|00000520| 41 54 49 4e 47 20 28 46 | 45 57 45 52 20 42 4c 4f |ATING (F|EWER BLO|
|00000530| 43 4b 53 29 2e 2e 2e 11 | 11 22 3a 50 52 49 4e 54 |CKS)....|.":PRINT|
|00000540| 23 31 35 2c 22 56 30 3a | 22 0a 39 31 20 43 4c 4f |#15,"V0:|".91 CLO|
|00000550| 53 45 38 3a 43 4c 4f 53 | 45 31 35 0a 39 32 20 51 |SE8:CLOS|E15.92 Q|
|00000560| 24 3d 43 48 52 24 28 33 | 34 29 3a 50 52 49 4e 54 |$=CHR$(3|4):PRINT|
|00000570| 22 93 11 9d 22 3b 50 45 | 45 4b 28 32 35 33 29 2b |"...";PE|EK(253)+|
|00000580| 32 35 36 2a 50 45 45 4b | 28 32 35 34 29 3b 22 43 |256*PEEK|(254);"C|
|00000590| 48 41 52 41 43 54 45 52 | 53 20 57 45 52 09 00 52 |HARACTER|S WER..R|
|000005a0| 45 4d 4f 56 45 44 2e 22 | 0a 39 34 20 50 52 49 4e |EMOVED."|.94 PRIN|
|000005b0| 54 22 11 11 11 41 46 54 | 45 52 20 31 30 30 30 20 |T"...AFT|ER 1000 |
|000005c0| 43 48 41 52 41 43 54 45 | 52 53 20 41 52 45 20 52 |CHARACTE|RS ARE R|
|000005d0| 45 4d 4f 56 45 44 2c 20 | 54 48 45 22 0a 39 35 20 |EMOVED, |THE".95 |
|000005e0| 50 52 49 4e 54 22 11 44 | 49 53 4b 20 44 52 49 56 |PRINT".D|ISK DRIV|
|000005f0| 45 20 53 48 4f 55 4c 44 | 20 42 45 20 43 4c 45 41 |E SHOULD| BE CLEA|
|00000600| 4e 45 44 20 57 49 54 48 | 20 41 22 0a 39 36 20 50 |NED WITH| A".96 P|
|00000610| 52 49 4e 54 22 11 46 49 | 4e 45 20 43 41 4d 45 4c |RINT".FI|NE CAMEL|
|00000620| 27 53 20 48 41 49 52 20 | 42 52 55 53 48 2e 20 20 |'S HAIR |BRUSH.  |
|00000630| 54 48 41 54 20 57 49 4c | 4c 22 0a 39 37 20 50 52 |THAT WIL|L".97 PR|
|00000640| 49 4e 54 22 11 52 45 44 | 55 43 45 20 54 48 45 20 |INT".RED|UCE THE |
|00000650| 52 49 53 4b 20 4f 46 20 | 22 3b 51 24 3b 22 42 59 |RISK OF |";Q$;"BY|
|00000660| 54 45 20 42 55 49 4c 44 | 2d 55 50 22 3b 51 24 3b |TE BUILD|-UP";Q$;|
|00000670| 22 2c 22 0a 39 38 20 50 | 52 49 4e 54 22 11 41 20 |",".98 P|RINT".A |
|00000680| 4d 41 4a 4f 52 20 43 41 | 55 53 45 20 4f 46 20 44 |MAJOR CA|USE OF D|
|00000690| 52 49 56 45 20 46 41 49 | 4c 55 52 45 2e 22 0a 39 |RIVE FAI|LURE.".9|
|000006a0| 39 20 50 52 49 4e 54 22 | 11 11 50 52 45 53 53 20 |9 PRINT"|..PRESS |
|000006b0| 3c 52 45 54 55 52 4e 3e | 2e 22 0a 31 30 30 20 47 |<RETURN>|.".100 G|
|000006c0| 45 54 41 24 3a 49 46 41 | 24 3c 3e 43 48 52 24 28 |ETA$:IFA|$<>CHR$(|
|000006d0| 31 33 29 54 48 45 4e 31 | 30 30 0a 31 30 35 20 47 |13)THEN1|00.105 G|
|000006e0| 4f 54 4f 31 30 0a 34 30 | 30 20 4d 3d 32 35 36 3a |OTO10.40|0 M=256:|
|000006f0| 46 3d 2e 3a 4e 3d 2e 3a | 41 3d 2e 3a 49 46 41 53 |F=.:N=.:|A=.:IFAS|
|00000700| 43 28 41 24 29 3d 33 36 | 54 48 45 4e 34 31 35 0a |C(A$)=36|THEN415.|
|00000710| 34 30 35 20 41 3d 56 41 | 4c 28 41 24 29 3a 49 46 |405 A=VA|L(A$):IF|
|00000720| 41 3c 2e 4f 52 41 3e 32 | 35 35 54 48 45 4e 34 34 |A<.ORA>2|55THEN44|
|00000730| 35 0a 34 31 30 20 52 45 | 54 55 52 4e 0a 34 31 35 |5.410 RE|TURN.415|
|00000740| 20 42 3d 41 53 43 28 52 | 49 47 48 54 24 28 41 24 | B=ASC(R|IGHT$(A$|
|00000750| 2c 4e 2b 31 29 29 41 4e | 44 31 32 37 3a 49 46 42 |,N+1))AN|D127:IFB|
|00000760| 3e 37 30 54 48 45 4e 34 | 34 35 0a 34 32 30 20 49 |>70THEN4|45.420 I|
|00000770| 46 42 3d 33 36 54 48 45 | 4e 34 34 30 0a 34 32 35 |FB=36THE|N440.425|
|00000780| 20 52 45 53 54 4f 52 45 | 3a 42 3d 42 2d 34 37 3a | RESTORE|:B=B-47:|
|00000790| 46 4f 52 49 3d 2e 54 4f | 42 3a 52 45 41 44 59 3a |FORI=.TO|B:READY:|
|000007a0| 4e 45 58 54 0a 34 33 30 | 20 49 46 59 3c 30 54 48 |NEXT.430| IFY<0TH|
|000007b0| 45 4e 34 34 35 0a 34 33 | 35 20 41 3d 41 2b 59 2a |EN445.43|5 A=A+Y*|
|000007c0| 31 36 5e 4e 3a 4e 3d 4e | 2b 31 3a 47 4f 54 4f 34 |16^N:N=N|+1:GOTO4|
|000007d0| 31 35 0a 34 34 30 20 49 | 46 41 3c 4d 54 48 45 4e |15.440 I|FA<MTHEN|
|000007e0| 52 45 54 55 52 4e 0a 34 | 34 35 20 50 52 49 4e 54 |RETURN.4|45 PRINT|
|000007f0| 22 11 49 4c 4c 45 47 41 | 4c 20 45 4e 54 52 59 22 |".ILLEGA|L ENTRY"|
|00000800| 3a 09 0a 34 39 30 20 44 | 41 54 41 2d 31 2c 30 2c |:..490 D|ATA-1,0,|
|00000810| 31 2c 32 2c 33 2c 34 2c | 35 2c 36 2c 37 2c 38 2c |1,2,3,4,|5,6,7,8,|
|00000820| 39 2c 2d 31 2c 2d 31 2c | 2d 31 0a 34 39 35 20 44 |9,-1,-1,|-1.495 D|
|00000830| 41 54 41 2d 31 2c 2d 31 | 2c 2d 31 2c 2d 31 2c 31 |ATA-1,-1|,-1,-1,1|
|00000840| 30 2c 31 31 2c 31 32 2c | 31 33 2c 31 34 2c 31 35 |0,11,12,|13,14,15|
|00000850| 0a 35 30 30 20 50 52 49 | 4e 54 23 31 35 2c 22 4d |.500 PRI|NT#15,"M|
|00000860| 2d 52 22 3b 43 48 52 24 | 28 31 34 34 29 3b 43 48 |-R";CHR$|(144);CH|
|00000870| 52 24 28 32 29 3b 43 48 | 52 24 28 35 29 0a 35 31 |R$(2);CH|R$(5).51|
|00000880| 30 20 47 45 54 23 31 35 | 2c 41 24 3a 53 3d 41 53 |0 GET#15|,A$:S=AS|
|00000890| 43 28 41 24 2b 5a 24 29 | 3a 47 45 54 23 31 35 2c |C(A$+Z$)|:GET#15,|
|000008a0| 41 24 3a 47 45 54 23 31 | 35 2c 41 24 0a 35 32 30 |A$:GET#1|5,A$.520|
|000008b0| 20 47 45 54 23 31 35 2c | 41 24 3a 47 45 54 23 31 | GET#15,|A$:GET#1|
|000008c0| 35 2c 41 24 3a 50 3d 41 | 53 43 28 41 24 2b 5a 24 |5,A$:P=A|SC(A$+Z$|
|000008d0| 29 0a 35 33 30 20 52 45 | 54 55 52 4e 0a 36 30 30 |).530 RE|TURN.600|
|000008e0| 20 49 4e 50 55 54 23 31 | 35 2c 4a 24 2c 4f 24 2c | INPUT#1|5,J$,O$,|
|000008f0| 48 24 2c 4e 24 0a 36 31 | 30 20 46 3d 2e 3a 49 46 |H$,N$.61|0 F=.:IF|
|00000900| 4a 24 3c 3e 22 30 30 22 | 54 48 45 4e 50 52 49 4e |J$<>"00"|THENPRIN|
|00000910| 54 22 93 12 22 3b 4a 24 | 3b 22 2c 22 3b 4f 24 3b |T"..";J$|;",";O$;|
|00000920| 22 2c 22 3b 48 24 3b 22 | 2c 22 3b 4e 24 3a 46 3d |",";H$;"|,";N$:F=|
|00000930| 31 0a 36 32 30 20 52 45 | 54 55 52 4e 0a 32 30 31 |1.620 RE|TURN.201|
|00000940| 30 20 50 4f 4b 45 35 35 | 2c 2e 3a 50 4f 4b 45 35 |0 POKE55|,.:POKE5|
|00000950| 36 2c 33 31 3a 43 4c 52 | 3a 50 52 49 4e 54 22 8e |6,31:CLR|:PRINT".|
|00000960| 93 11 4f 4e 45 20 4d 4f | 4d 45 4e 54 20 50 4c 45 |..ONE MO|MENT PLE|
|00000970| 41 53 45 2e 2e 2e 22 0a | 32 30 32 30 20 50 3d 50 |ASE...".|2020 P=P|
|00000980| 45 45 4b 28 34 35 29 2b | 32 35 36 2a 50 45 45 4b |EEK(45)+|256*PEEK|
|00000990| 28 34 36 29 2d 31 0a 32 | 30 33 30 20 49 46 50 45 |(46)-1.2|030 IFPE|
|000009a0| 45 4b 28 50 29 54 48 45 | 4e 50 3d 50 2d 31 3a 47 |EK(P)THE|NP=P-1:G|
|000009b0| 4f 54 4f 32 30 33 30 0a | 32 30 34 30 20 50 3d 50 |OTO2030.|2040 P=P|
|000009c0| 2d 37 39 30 3a 53 3d 34 | 39 31 35 32 0a 32 30 35 |-790:S=4|9152.205|
|000009d0| 30 20 46 4f 52 49 3d 2e | 54 4f 37 39 30 3a 50 4f |0 FORI=.|TO790:PO|
|000009e0| 4b 45 53 2b 49 2c 50 45 | 45 4b 28 50 2b 49 29 3a |KES+I,PE|EK(P+I):|
|000009f0| 4e 45 58 54 0a 32 30 36 | 30 20 50 4f 4b 45 32 30 |NEXT.206|0 POKE20|
|00000a00| 35 34 2c 34 38 3a 47 4f | 54 4f 31 30 0a          |54,48:GO|TO10.   |
+--------+-------------------------+-------------------------+--------+--------+